<%set rs7=server.createobject("adodb.recordset")
sql="select * from venshop_system"
rs7.open sql,conn,1,1
web=rs7("web")
homepage=rs7("homepage")
sitename=rs7("sitename")
siteurl=Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME")
mail=rs7("mail")
fax=rs7("fax")
icp=rs7("icp")
tel=rs7("tel")
msn=rs7("msn")
ymaddr=rs7("ymaddr")
code=rs7("code")
logo=rs7("logo")
aheight=rs7("height")
awidth=rs7("width")
heightt=rs7("heightt")
widtht=rs7("widtht")
photoh=rs7("photoh")
lookt=rs7("lookt")
lookpage=rs7("lookpage")
lookhang=rs7("lookhang")
tongj=rs7("tongj")
sortb=rs7("sort")
E_Server=rs7("mail_sever")
E_ServerUser=rs7("mail_user")
E_ServerPass=rs7("mail_pass")
E_SendManMail=rs7("mail_sendmail")
E_SendManName=rs7("mail_sendname")
E_SendManType=rs7("mail_type")
mail_regs=rs7("mail_regs")
mail_regc=rs7("mail_regc")
mail_orders=rs7("mail_orders")
mail_orderc=rs7("mail_orderc")
ser=rs7("ser")
ser_t=rs7("ser_t")
oicq=rs7("oicq")
oicq_n=rs7("oicq_n")
reg=rs7("reg")
guestorder=rs7("guestorder")
commentshow=rs7("commentshow")
baojiashow=rs7("baojiashow")
adminshow=rs7("adminshow")
huoshow=rs7("huoshow")
venshop_skin=rs7("skin")
fskin=rs7("skin")
if isnull(venshop_skin) then venshop_skin="default"
if isnull(fskin) then fskin="default"
tjindex=rs7("tjindex")
tejia=rs7("tejia")
gun=rs7("gun")
vbut=rs7("vbut")
vword=rs7("vword")
rs7.close
set rs7=nothing
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from venshop_venad"
rs.open sql,conn,1,1
t_is=rs("t_is")
iszuo=rs("iszuo")
isyou=rs("isyou")
urlzuo=rs("urlzuo")
urlyou=rs("urlyou")
piczuo=rs("piczuo")
picyou=rs("picyou")
ad_img1=rs("ad_img1")
ad_img2=rs("ad_img2")
ad_img3=rs("ad_img3")
ad_img4=rs("ad_img4")
ad_url1=rs("ad_url1")
ad_url2=rs("ad_url2")
ad_url3=rs("ad_url3")
ad_url4=rs("ad_url4")
rs.close
set rs=nothing

Function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>vword then
ven=asc(mid(venshop,i,1))-vbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
End Function%>
<%
host=lcase(request.servervariables("HTTP_HOST"))
Fy_Url=Request.ServerVariables("QUERY_STRING")

Function DelStr(Str)
If IsNull(Str) Or IsEmpty(Str) Then
Str= ""
End If
DelStr=Replace(Str,";","")
DelStr=Replace(DelStr,"'","")
DelStr=Replace(DelStr,"&","")
DelStr=Replace(DelStr," ","")
DelStr=Replace(DelStr,">","")
DelStr=Replace(DelStr,"%20","")
DelStr=Replace(DelStr,"-","")
DelStr=Replace(DelStr,"=","")
DelStr=Replace(DelStr,"<","")
DelStr=Replace(DelStr,">","")
DelStr=Replace(DelStr,"%","")
End Function
Function chklogin(user_name)
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where username='"&user_name&"'"
rs.open sql,conn,1,1
if rs.eof then
Response.Cookies("venshop")("user_name")=""
Response.Cookies("venshop")("user_pass")=""
Response.Cookies("venshop")("user_class")=""
response.redirect "login.asp"
response.end
else
user_pass=rs("userpass")
end if
rs.close
set rs=nothing
if trim(Request.Cookies("venshop")("user_pass"))<>trim(user_pass) then
Response.Cookies("venshop")("user_name")=""
Response.Cookies("venshop")("user_pass")=""
Response.Cookies("venshop")("user_class")=""
response.redirect "login.asp"
response.end
end if
End Function
Function Showflash(img,wt,hg,oname)
response.write "<object classid=""clsid:D27CDB6E-AE6D-11CF-96B8-444553540000"" name="&oname&" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"" border=""0"" width="&wt&" height="&hg&">"
response.write "<param name=""movie"" value="&img&">"
response.write "<param name=""quality"" value=""High"">"
response.write "<embed src="&img&" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" name="&oname&" quality=""High"" width="&wt&" height="&hg&"></object>"
End Function
Function FormatNum(Num)
FormatNum=FormatNumber(Num,2,-1)
End Function
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'set file = fso.opentextfile("D:\PROJECTS\dada66\log.txt", 2, TRUE)
'file.write(vencode(venshopcom))
'file.close
'Set file = Nothing
'Set fso = nothing

'execute(vencode(venshopcom))
%>